﻿Public Class enviarhack

    Private Sub enviarhack_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.ScriptErrorsSuppressed = False
        WebBrowser1.Navigate("http://mariohacks.url.ph/enviarhack.php")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Me.Text = WebBrowser1.DocumentTitle
        If Me.Text <> "Enviar Hack" Then
            mariohacks_start.icone.ShowBalloonTip(200, "Redirecionando para o site...", "Estamos te redirecionando para o site do Mario Hacks Launcher para verificar se sua HACK foi enviada com sucesso ou não...", ToolTipIcon.Info)
            Process.Start(WebBrowser1.Url.ToString)
            Me.Close()
        End If
    End Sub
End Class